home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / SCollection.p < prev    next >
Text File  |  2004-01-31  |  6KB  |  135 lines
  1. pTempVar <- <primitive 110 21 >
  2. <primitive 112 pTempVar 1  " with:do: " \
  3.   #( #[ 16r20 16rA6 16r73 16r21 16rA6 16r74 16r23 16rA2 16rF7 16r0F 16r22 \
  4.         16r23 16r24 16rD3 16rF2 16r20 16rA7 16r73 16r21 16rA7 16rF1 \
  5.         16r74 16rF2 16rF9 16r13 16rF2 16r5D 16rF3 16rF5] \
  6.     #(  )) >
  7.  
  8. <primitive 112 pTempVar 2  " sort: " \
  9.   #( #[ 16r20 16rAF 16r74 16r52 16r24 16rA3 16rB2 16rE1 16r05 16r33 16r25 \
  10.         16r51 16rC1 16r72 16r22 16r51 16rCB 16rFC 16r0B 16r21 16r24 \
  11.         16r22 16rB1 16r24 16r22 16r51 16rC0 16rB1 16rD3 16rAC 16rF7 \
  12.         16r1C 16r24 16r22 16rB1 16r73 16r24 16r22 16r24 16r22 16r51 \
  13.         16rC0 16rB1 16rD0 16rF2 16r24 16r22 16r51 16rC0 16r23 16rD0 \
  14.         16rF2 16r22 16r51 16rC1 16rF1 16r72 16rF2 16rF9 16r2E 16rF3 \
  15.         16rB3 16rF2 16r20 16r24 16r0B 16r10 16rF3 16rF5] \
  16.     #(  )) >
  17.  
  18. <primitive 112 pTempVar 3  " sort " \
  19.   #( #[ 16r20 16rE2 16r01 16r04 16r21 16r22 16rC8 16rF3 16r0B 16r2F 16rF3 \
  20.         16rF5] \
  21.     #(  )) >
  22.  
  23. <primitive 112 pTempVar 4  " select: " \
  24.   #( #[ 16r20 16r20 16r05 16r30 16rA0 16rE2 16r02 16r0C 16r21 16r23 16rB5 \
  25.         16rF7 16r04 16r22 16r23 16r0B 16r17 16rF2 16r22 16rF3 16rD7 \
  26.         16r0B 16r10 16rF3 16rF5] \
  27.     #(  )) >
  28.  
  29. <primitive 112 pTempVar 5  " reversed " \
  30.   #( #[ 16r05 16r1E 16r20 16rA3 16rF1 16r72 16rB0 16r71 16r20 16rE1 16r03 \
  31.         16r0B 16r21 16r22 16r23 16rD0 16rF2 16r22 16r51 16rC1 16rF1 \
  32.         16r72 16rF3 16rB3 16rF2 16r20 16r21 16r0B 16r10 16rF3 16rF5 \
  33.        ] \
  34.     #(  )) >
  35.  
  36. <primitive 112 pTempVar 6  " reverseDo: " \
  37.   #( #[ 16r20 16r0A 16r20 16r72 16r20 16r0A 16r1A 16r73 16r22 16r23 16rCB \
  38.         16rF7 16r14 16r20 16r22 16r0B 16r35 16rF7 16r05 16r21 16r20 \
  39.         16r22 16rB1 16rB5 16rF2 16r22 16r51 16rC1 16rF1 16r72 16rF2 \
  40.         16rF9 16r19 16rF2 16r5D 16rF3 16rF5] \
  41.     #(  )) >
  42.  
  43. <primitive 112 pTempVar 7  " replaceFrom:to:with:startingAt: " \
  44.   #( #[ 16r50 16r75 16r21 16r25 16rC0 16r22 16rC8 16rF7 16r13 16r20 16r21 \
  45.         16r25 16rC0 16r23 16r25 16r24 16rC0 16rB1 16rD0 16rF2 16r25 \
  46.         16r51 16rC0 16rF1 16r75 16rF2 16rF9 16r1A 16rF2 16rF5] \
  47.     #(  )) >
  48.  
  49. <primitive 112 pTempVar 8  " replaceFrom:to:with: " \
  50.   #( #[ 16r23 16r21 16rE2 16r04 16r09 16r20 16r24 16r25 16rD0 16rF2 16r24 \
  51.         16r51 16rC0 16rF3 16rD7 16rF2 16rF5] \
  52.     #(  )) >
  53.  
  54. <primitive 112 pTempVar 9  " last " \
  55.   #( #[ 16r50 16r20 16rA3 16rC9 16rF6 16r05 16r20 16r20 16r0A 16r20 16rB1 \
  56.         16rF3 16rF5] \
  57.     #(  )) >
  58.  
  59. <primitive 112 pTempVar 10  " indexOfSubCollection:startingAt: " \
  60.   #( #[ 16r20 16r21 16r22 16rE0 16r06 16r20 16r30 16rBD 16rF2 16r5D 16rF3 \
  61.         16r83 16r01 16rF3 16rF5] \
  62.     #( 'element not found' #indexOfSubCollection:startingAt:ifAbsent:  )) >
  63.  
  64. <primitive 112 pTempVar 11  " indexOfSubCollection:startingAt:ifAbsent: " \
  65.   #( #[ 16r22 16r74 16r20 16rA3 16r21 16rA3 16rC1 16r75 16r24 16r25 16rC8 \
  66.         16rF7 16r11 16r21 16r20 16r24 16rDD 16rF7 16r02 16r24 16rF3 \
  67.         16rF2 16r24 16r51 16rC0 16rF1 16r74 16rF2 16rF9 16r16 16rF2 \
  68.         16r23 16rA5 16rF3 16rF5] \
  69.     #(  )) >
  70.  
  71. <primitive 112 pTempVar 12  " findLast:ifAbsent: " \
  72.   #( #[ 16r20 16rE1 16r03 16r09 16r21 16r23 16rB5 16rF7 16r03 16r20 16rAB \
  73.         16rF4 16rF3 16r0B 16r2B 16rF2 16r22 16rA5 16rF3 16rF5] \
  74.     #(  )) >
  75.  
  76. <primitive 112 pTempVar 13  " findLast: " \
  77.   #( #[ 16r20 16r21 16rE0 16r04 16r20 16r30 16rBD 16rF3 16rDC 16rF2 16rF5 \
  78.        ] \
  79.     #( 'last element not found'  )) >
  80.  
  81. <primitive 112 pTempVar 14  " findFirst:ifAbsent: " \
  82.   #( #[ 16r20 16rE1 16r03 16r09 16r21 16r23 16rB5 16rF7 16r03 16r20 16rAB \
  83.         16rF4 16rF3 16rB3 16rF2 16r22 16rA5 16rF3 16rF5] \
  84.     #(  )) >
  85.  
  86. <primitive 112 pTempVar 15  " findFirst: " \
  87.   #( #[ 16r20 16r21 16rE0 16r04 16r20 16r30 16rBD 16rF3 16rDB 16rF3 16rF5 \
  88.        ] \
  89.     #( 'first element not found'  )) >
  90.  
  91. <primitive 112 pTempVar 16  " equals:startingAt: " \
  92.   #( #[ 16r50 16r73 16r20 16rE1 16r04 16r16 16r24 16r21 16r22 16r23 16rC0 \
  93.         16rE0 16r02 16r5C 16rF4 16rD5 16rC9 16rF6 16r02 16r5C 16rF4 \
  94.         16rF2 16r23 16r51 16rC0 16rF1 16r73 16rF3 16rB3 16rF2 16r5B \
  95.         16rF3 16rF5] \
  96.     #(  )) >
  97.  
  98. <primitive 112 pTempVar 17  " copyWithout: " \
  99.   #( #[ 16r05 16r30 16rA0 16r72 16r20 16rE1 16r03 16r0A 16r23 16r21 16rB6 \
  100.         16rF6 16r04 16r22 16r23 16r0B 16r17 16rF3 16rB3 16rF2 16r20 \
  101.         16r22 16r0B 16r10 16rF3 16rF5] \
  102.     #(  )) >
  103.  
  104. <primitive 112 pTempVar 18  " copyWith: " \
  105.   #( #[ 16r20 16r05 16r30 16rA0 16rF1 16r20 16r0B 16r15 16rF2 16rF1 16r21 \
  106.         16r0B 16r17 16rF2 16r0B 16r10 16rF3 16rF5] \
  107.     #(  )) >
  108.  
  109. <primitive 112 pTempVar 19  " copyFrom:to: " \
  110.   #( #[ 16r05 16r30 16rA0 16r73 16r21 16r22 16rB2 16rE1 16r04 16r07 16r23 \
  111.         16r20 16r24 16rB1 16r0B 16r17 16rF3 16rB3 16rF2 16r20 16r23 \
  112.         16r0B 16r10 16rF3 16rF5] \
  113.     #(  )) >
  114.  
  115. <primitive 112 pTempVar 20  " collect: " \
  116.   #( #[ 16r20 16r20 16r05 16r30 16rA0 16rE2 16r02 16r09 16r22 16r21 16r23 \
  117.         16rB5 16r0B 16r17 16rF2 16r22 16rF3 16rD7 16r0B 16r10 16rF3 \
  118.         16rF5] \
  119.     #(  )) >
  120.  
  121. <primitive 112 pTempVar 21  " , " \
  122.   #( #[ 16r20 16r05 16r30 16rA0 16rF1 16r20 16r0B 16r15 16rF2 16rF1 16r21 \
  123.         16r0B 16r15 16rF2 16r0B 16r10 16rF3 16rF5] \
  124.     #(  )) >
  125.  
  126. <primitive 98 #SequenceableCollection \
  127.   <primitive 97 #SequenceableCollection #KeyedCollection #AmigaTalk:General/SequenceableCollection.st \
  128.    #(  ) \
  129.    #( #with:do: #sort: #sort #select: #reversed #reverseDo:  \
  130.        #replaceFrom:to:with:startingAt: #replaceFrom:to:with: #last #indexOfSubCollection:startingAt:  \
  131.        #indexOfSubCollection:startingAt:ifAbsent: #findLast:ifAbsent: #findLast: #findFirst:ifAbsent: #findFirst:  \
  132.        #equals:startingAt: #copyWithout: #copyWith: #copyFrom:to: #collect: #,  ) \
  133.   pTempVar 6 9 > #ordinary >
  134.  
  135.